0 IFA=.THENGOSUB700
1 IFA=.THENA=1:LOAD"ELEPHANTS.ML1",8,1
2 IFA=1THENA=2:LOAD"ELEPHANTS.ML2",8,1
3 IFA=2THENA=3:LOAD"ELEPHANTS.ML3",8,1
4 IFA=3THENA=4:LOAD"ELEPHANTS.ML4",8,1
5 POKE55,255:POKE56,55:GOTO25
10 IFMX>255THENMX=MX-256:POKE53248+16,PEEK(53248+16)OR128:GOTO14
12 IFMX<.THENMX=256+MX:POKE53248+16,PEEK(53248+16)AND127
14 POKE53248+14,MX:POKE53248+15,MY:RETURN
15 IFPEEK(203)=37THENJY=11:RETURN
16 IFPEEK(203)=12THENJY=13:RETURN
17 IFPEEK(203)=42THENJY=07:RETURN
18 IFPEEK(203)=10THENJY=14:RETURN
19 RETURN
25 V=53248:S=54272:M=5:B=2500:SC=0
34 CH=14336:RM=38912:MM=1
36 POKE53272,(PEEK(53272)AND240)OR14
50 POKEV+21,0:PRINT"[147]":SC=0:M=5:B=2500
51 GOSUB800:PRINT"[145][145]                                       "
52 PRINT"                                       "
54 GOSUB600
56 GOSUB650
57 POKEV+21,255:POKE50432,191:SYS51104
58 W1=PEEK(V+30):W2=PEEK(V+31)
59 REM    MAIN LOOP
60 POKE49525,3:POKE49526,20
61 POKE49522,3:POKE49523,6:POKE49524,8:SYS49152
63 W1=PEEK(V+30):IFW1>127THEN110
64 W2=PEEK(V+31):IFW2>127THEN150
65 GOSUB104
66 POKE 49522,4:POKE49523,12:POKE49524,14:SYS49152
68 W1=PEEK(V+30):IFW1>127THEN110
69 W2=PEEK(V+31):IFW2>127THEN150
70 GOSUB104
71 POKE49522,3:POKE49523,18:POKE49524,20:SYS49152
73 W1=PEEK(V+30):IFW1>127THEN110
74 W2=PEEK(V+31):IFW2>127THEN150
75 GOSUB104
76 POKE49522,4:POKE49523,24:POKE49524,26:SYS49152
78 W1=PEEK(V+30):IFW1>127THEN110
79 W2=PEEK(V+31):IFW2>127THEN150
80 GOSUB104
81 POKE49522,3:POKE49523,30:POKE49524,32:SYS49152
83 W1=PEEK(V+30):IFW1>127THEN110
84 W2=PEEK(V+31):IFW2>127THEN150
85 GOSUB104
86 POKE49522,2:POKE49523,0:POKE49524,38:POKE49525,1:POKE49526,2:SYS49152
88 W1=PEEK(V+30):IFW1>127THEN110
89 W2=PEEK(V+31):IFW2>127THEN150
90 GOSUB104
91 POKE49522,1:POKE49525,21:POKE49526,23:SYS49152
93 W1=PEEK(V+30):IFW1>127THEN110
94 W2=PEEK(V+31):IFW2>127THEN150
95 GOSUB104
96 B=B-10:IFB=0THEN200
97 PRINT"[159]"TAB(23)"     ":PRINT""TAB(23);B
99 W1=PEEK(V+30):IFW1>127THEN110
100 W2=PEEK(V+31):IFW2>127THEN150
101 GOSUB104
102 GOTO60
103 REM    JOYSTICK
104 JY=PEEK(56320)AND15:GOSUB15
105 IF(7EORJY)<>15THENMX=MX+6
106 IF(11EORJY)<>15THENMX=MX-6
107 IF(13EORJY)<>15THENMY=MY+6
108 IF(14EORJY)<>15THENMY=MY-6
109 GOSUB10:RETURN
110 REM     SPRITE COLLISIONS
112 IFW1>191THEN120
114 GOTO150
120 REM    SAVE HEROINE
122 POKE50447,.:POKE50448,.:POKE50688,128:POKE50432,.
126 SC=SC+100+B:PRINT""TAB(9);SC:GOSUB750
128 POKEV+16,96:POKEV+14,48:POKEV+15,200
130 GOTO54
150 REM    CHARACTER COLLISION
151 POKE50447,0:POKE50448,0:POKE50688,128
152 POKE50432,0:POKE2047,193
154 FORX=0TO24:POKES+X,0:NEXT
156 POKES+24,143:POKES+5,16:POKES+19,16:POKES+6,252:POKES+20,249
158 POKES+4,21:POKES+18,17:POKES+1,68:POKES+15,42:FORI=1TO200:NEXT
160 POKES+4,20:POKES+18,16:FORI=0TO400:NEXT
162 FORX=0TO24:POKES+X,0:NEXT
164 M=M-1:PRINT""TAB(35);M:IFM=0THEN200
165 FORT=0TO250:NEXT
166 POKEV+16,96:POKEV+14,48:POKEV+15,200:POKE2047,192:MX=48:MY=200
170 POKE50432,191:GOTO58
200 PRINT"                                        "
201 POKEV+21,.:FORB=1TO50:POKE646,INT(RND(.)*255)
202 PRINT"               GAME OVER                ":NEXT
210 GOTO25
600 REM    SETUPS
602 POKE49525,3:POKE49526,20
604 FORX=39TO44:POKEV+X,10:NEXT:POKEV+45,7:POKEV+46,5:POKEV+37,10
606 POKEV+38,9:POKEV+28,192:POKEV+0,96:POKEV+1,82:POKEV+2,96:POKEV+3,178
608 POKEV+4,144:POKEV+5,122:POKEV+6,192:POKEV+7,146:POKEV+8,240
610 POKEV+9,17:POKEV+16,96:POKEV+10,5:POKEV+11,104:POKEV+12,33:POKEV+13,76
612 POKEV+14,48:POKEV+15,200:FORX=2040TO2045:POKEX,195:NEXT:POKE2046,194
614 POKE2047,192:POKEV+27,63:POKE50433,0:MX=48:MY=200
618 POKE50434,2:POKE50435,255:POKE50436,0:POKE50437,0:POKE50438,253
620 POKE50439,0:POKE50440,3:POKE50441,0:POKE50442,254:POKE50443,1
622 POKE50444,0:POKE50445,0:POKE50446,0:POKE50447,0:POKE50448,0:RETURN
650 REM    PLAYING SCREEN
652 PRINT"[147]   [159]SCORE ";SC;TAB(17)"BONUS ";B;TAB(31)"MEN ";M
654 PRINT"---------------------------------------"
655 PRINT"-[150]PINK[159]--[150]ELEPHANTS[159]--[150]PINK[159]--[150]ELEPHANTS[159]--[150]PINK"
656 PRINT"[152]$%&   $%&   $%&         $%&   $%&   $%&"
657 PRINT"'()   '()   '()         '()   '()   '()"
658 PRINT"*+,   *+,   *+,         *+,   *+,   *+,"
659 PRINT"[159]$%&         $%&   $%&   $%&         $%&"
660 PRINT"'()         '()   '()   '()         '()"
661 PRINT"*+,         *+,   *+,   *+,         *+,"
662 PRINT"[152]$%&   $%&         $%&         $%&   $%&"
663 PRINT"'()   '()         '()         '()   '()"
664 PRINT"*+,   *+,         *+,         *+,   *+,"
665 PRINT"[159]$%&   $%&   $%&   $%&   $%&   $%&   $%&"
666 PRINT"'()   '()   '()   '()   '()   '()   '()"
667 PRINT"*+,   *+,   *+,   *+,   *+,   *+,   *+,"
668 PRINT"[152]$%&         $%&         $%&   $%&   $%&"
669 PRINT"'()         '()         '()   '()   '()"
670 PRINT"*+,         *+,         *+,   *+,   *+,"
671 PRINT"[159]$%&   $%&   $%&   $%&   $%&   $%&   $%&"
672 PRINT"'()   '()   '()   '()   '()   '()   '()"
673 PRINT"*+,   *+,   *+,   *+,   *+,   *+,   *+,"
674 PRINT"[152]$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&$%&"
675 PRINT"'()'()'()'()'()'()'()'()'()'()'()'()'()"
676 PRINT"*+,*+,*+,*+,*+,*+,*+,*+,*+,*+,*+,*+,*+,"
680 RETURN
700 POKE53280,.:POKE53281,.:POKE53272,21
710 PRINT"[147][208]LEASE WAIT WHILE [201] FIND SOME ELAPHANTS":RETURN
750 REM    SOUND
754 FORL=0TO24:POKES+L,0:NEXT
756 POKES+18,128:POKES,75:POKES+5,0:POKES+6,240:POKES+14,12:POKES+15,250
758 POKES+24,207
760 FORL=0TO35:POKES+4,17:POKES+1,PEEK(S+27)
762 FORT=0TO50:NEXT:NEXT:POKES+4,0:RETURN
800 REM    TITLE SCREEN
802 PRINT"[147]":POKE53281,0:POKE53280,0
804 GOSUB 840
806 GOSUB 840
807 PRINT
808 PRINT:PRINTTAB(4)"$%&"TAB(32)"$%&"
810 PRINTTAB(4)"'()                         '()"
812 PRINTTAB(4)"*+,"TAB(32)"*+,":PRINT:PRINT
814 GOSUB840
816 GOSUB840
820 PRINT"[150]      P I N K    E L E P H A N T S"
822 PRINT" BY: J. C. HILTY"
824 PRINT"[154]COPYRIGHT 1987"
828 PRINT"   PRESS SPACE OR FIREBUTTON TO START ":POKE198,.
829 PRINT"            PRESS Q TO QUIT."
830 GETA$:IFA$="Q"ORA$="[209]"THENGOSUB60000:GOTO828
831 IFA$=" "THENRETURN
832 IF(PEEK(56320)AND16)<>.THEN830
838 RETURN
840 PRINT"[152]$%&[159]$%&[152]$%&[159]$%&[152]$%&[159]$%&[152]$%&[159]$%&[152]$%&[159]$%&[152]$%&[159]$%&[152]$%&"
842 PRINT"[152]'()[159]'()[152]'()[159]'()[152]'()[159]'()[152]'()[159]'()[152]'()[159]'()[152]'()[159]'()[152]'()"
844 PRINT"[152]*+,[159]*+,[152]*+,[159]*+,[152]*+,[159]*+,[152]*+,[159]*+,[152]*+,[159]*+,[152]*+,[159]*+,[152]*+,":PRINT
846 RETURN
60000 PRINT"[145][145]                                      "
60005 PRINT"  ARE YOU SURE YOU WANT TO QUIT? :Y/N:":POKE198,.
60010 A=PEEK(203):IFA<>25ANDA<>39THEN60010
60020 IFA=39THENPRINT"[145]                                       [145][145]":RETURN
60030 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60040 GETA$: PRINT"[147]";:IFER<>63THENEND
60050 SYS65418:POKEV+21,.:POKE53272,21:LOAD"HELLO CONNECT",8